home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / lib / compatible < prev    next >
Text File  |  1997-03-27  |  4KB  |  110 lines
  1. \ This file includes all aliases and extra definitions removed from
  2. \ the original RISC OS Forthmacs sources.
  3. \ Use it for compatibilty reasons or cross-developing hs23.10.94
  4. \ assumes 32-bit Forth
  5. \ NEW words defined UP-compatible
  6. ??cr cr marked
  7. cr .( Please note that the 'compatible' mode file is only meant for some rather)
  8. cr .( old applications you will probably NOT have on your computer.)
  9. cr .( All Forthmacs tools available in this distribution DON'T want it and will)
  10. cr .( not work in most cases.) cr
  11. .( Are you sure you want to load the 'compatible' mode?   --> Press Y/J)
  12. cr light
  13. begin key? while key drop repeat
  14. key lcc dup  char j =  swap char y =  or
  15. [if]
  16.   \needs (lf            : (lf        ( -- )        1 #line +!  linefeed (emit  ;
  17.   \needs (cr            : (cr        ( -- )        carret (emit  ;
  18.   \needs lf        : lf        ( -- )        #out off  (lf  ;
  19.   \needs crlf        : crlf        ( -- )        (cr lf  ;
  20.   \needs evaluate    alias evaluate eval
  21.   \needs eval        alias eval evaluate
  22.   \needs string-load    alias string-load evaluate
  23.   \needs /cell        4 constant /cell
  24.   \needs /char        1 constant /char
  25.   \needs cell+        : cell+        /cell + ;
  26.   \needs char+        : char+        /char + ;
  27.   \needs cells        : cells        /cell * ;
  28.   \needs chars        : chars        /char * ;
  29.   \needs cells+        : cells+    cells + ;
  30.   \needs chars+        : chars+    chars + ;
  31.   \needs ?exit        : ?exit        postpone if  postpone exit  postpone then ; immediate
  32.   \needs @execute    : @execute      @ execute ;
  33.   \needs compile,    alias compile,  token,
  34.   \needs (compile)    alias (compile) token,
  35.   \needs compile    alias compile do-postpone
  36.   \needs postpone    : postpone ' dup immediate? 0= if ['] do-postpone compile, then compile, ; immediate
  37.   \needs "        alias " c"
  38.   \needs s"        alias c" "
  39.   
  40.   \needs rshift        alias rshift >>
  41.   \needs lshift        alias lshift <<
  42.   \needs acf-aligned    alias acf-aligned aligned
  43.   \needs taligned    alias taligned    aligned
  44.   \needs acf-align    alias acf-align align
  45.   \needs talign        alias talign    align
  46.   
  47.   \needs dumpx        : dumpx        blword 10 dump ; \ name (s -- )
  48.   \needs d#        alias d# td
  49.   \needs h#        alias h# th
  50.   
  51.   \needs alloc-mem    : alloc-mem allocate abort" Can't allocate" ;
  52.   \needs free-mem    : free-mem over -5 cells+ [ system ] node_size? [ forth ] >= if free else drop then ;
  53.   
  54.   \needs ascii        : ascii     blword char+ c@  do-literal ; immediate
  55.   \needs char        : char     blword char+ c@ ;
  56.   \needs [char]        : [char] char do-literal ; immediate
  57.   \needs td        alias td d#
  58.   \needs th        alias th h#
  59.   \needs n>flags    : n>flags  count + ;
  60.   \needs >>a        : >>a        0 ?do 2/ loop ;
  61.   \needs >>        alias >> rshift
  62.   \needs <<        alias << lshift
  63.   \needs ctoggle    : ctoggle    ( mask addr -- )    toggle ;
  64.   \needs u*d        : u*d        (s u u -- ul )        *  ;
  65.   
  66.   \needs \itc        : \itc        ( -- )    postpone \    ; immediate
  67.   \needs \dtc        : \dtc        ( -- )            ; immediate
  68.   \needs \ttc        : \ttc        ( -- )    postpone \    ; immediate
  69.   \needs \t8        : \t8        ( -- )    postpone \    ; immediate
  70.   \needs \t16        : \t16        ( -- )    postpone \    ; immediate
  71.   \needs \t32        : \t32        ( -- )            ; immediate
  72.   
  73.   \needs 32\        : 32\  ; immediate
  74.   \needs 16\        alias 16\ \
  75.   
  76.   \needs filec!        alias filec! file!
  77.   \needs filec@        alias filec@ file@
  78.   \needs read-write    alias read-write modify
  79.   \needs getword    alias getword fgetword
  80.   \needs getcword    alias getcword fgettill
  81.   \needs skipcword    alias skipcword fskiptill
  82.   \needs close        alias close fclose
  83.   \needs open        alias open fopen
  84.   
  85.   \needs na1+        alias na1+ cell+
  86.   \needs ta1+        alias ta1+ cell+
  87.   \needs ca1+        alias ca1+ char+
  88.   \needs /c        alias /c /char
  89.   \needs /n        alias /n /cell
  90.   \needs /a        alias /a /cell
  91.   \needs /branch    alias /branch /cell
  92.   \needs /c*        alias /c* noop
  93.   \needs /n*        alias /n* cells
  94.   \needs na+        alias na+ cells+
  95.   \needs ca+        alias ca+ chars+
  96.   
  97.   \needs n->a        alias n->a noop
  98.   
  99.   \needs n!        alias n!    !
  100.   \needs \c        alias \c    \
  101.   
  102.   : at-xy        swap at ;
  103.   : at-xy?        at? swap ;
  104.   
  105.   
  106.   needs lconstant extend.portab32
  107.   needs wconstant extend.portab16
  108.   
  109.   \needs save-string  d# 260 buffer: string2  : save-string string2 "move ;
  110. [then]